home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol153 / temple.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1986-12-16  |  31.3 KB  |  1,189 lines
  1. 10  KEY OFF
  2. 15  N=VAL (MID$(TIME$,7,2))
  3. 20  RANDOMIZE N
  4. 30  INPUT "Do you want graphics (Y/N)";ANS$
  5. 40  IF ANS$ = "y" GOTO 70
  6. 50  IF ANS$ = "Y" GOTO 70
  7. 55  IF ANS$="ARIOCH" GOTO 700
  8. 60  GOTO 350
  9. 70  SCREEN 1:CLS
  10. 80   CIRCLE (20,20),20
  11. 90  PAINT (30,30),2,3
  12. 100  CIRCLE (240,30),15
  13. 110  PAINT (240,30),1,3
  14. 120  PSET (60,125)
  15. 130  DRAW"e100;f100;l199"
  16. 140  LINE (360,125)-(0,360),,BF
  17. 150  PAINT (100,100),3
  18. 160  LINE (360,125)-(0,360),1,BF
  19. 170  LOCATE 16,19
  20. 180  PRINT "   "
  21. 190  FOR J = 1 TO 200
  22. 200  I=(RND*360)
  23. 210  F=(RND*120)
  24. 220  FOR R=1 TO 0 STEP -1
  25. 230  CIRCLE (I,F),R,3
  26. 240  NEXT
  27. 250  NEXT
  28. 260  LOCATE 22,11
  29. 270  PRINT "THE TEMPLE OF LOTH"
  30. 280  LOCATE 22,11
  31. 290  BEEP
  32. 300  FOR X = 200 TO 0 STEP -4
  33. 310  CIRCLE (160,100),X,,,,1
  34. 320  NEXT
  35. 330  SCREEN 2
  36. 340  SCREEN 0
  37. 350  CLS
  38. 360  PRINT : COLOR 12,0,1
  39. 370  PRINT"            POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINT POINT   POINT POINTPOINTPOINTPOINT  POINT    POINTPOINTPOINTPOINT           POINTPOINTPOINT   POINTPOINTPOINTPOINT
  40. 380  PRINT"              CSRLIN   CSRLIN    CSRLINCSRLIN CSRLINCSRLIN CSRLIN   CSRLIN CSRLIN    CSRLIN             CSRLIN   CSRLIN  CSRLIN
  41. 390  PRINT"              CSRLIN   CSRLIN<0xDF!><0xDF!>  CSRLIN CSRLIN CSRLIN CSRLIN<0xDF!><0xDF!><0xDF!>  CSRLIN    CSRLIN<0xDF!><0xDF!>           CSRLIN   CSRLIN  CSRLIN<0xDF!><0xDF!>
  42. 400  PRINT"              CSRLIN   CSRLINPOINTPOINTPOINT CSRLIN   CSRLIN CSRLIN     CSRLINPOINTPOINTPOINT CSRLINPOINTPOINTPOINT          <0xDF!>POINTPOINTPOINT<0xDF!>  CSRLIN
  43. 410  PRINT:
  44. 420  PRINT
  45. 430  PRINT"                  POINT     POINTPOINTPOINT  POINTPOINTPOINTPOINTPOINT  POINT  POINT            POINTPOINTPOINTPOINTPOINTPOINT
  46. 440  PRINT"                  CSRLIN    CSRLIN   CSRLIN   CSRLIN    CSRLIN  CSRLIN          POINT<0xDF!> CSRLIN  CSRLIN <0xDF!>POINT
  47. 450  PRINT"                  CSRLIN    CSRLIN   CSRLIN   CSRLIN    CSRLIN<0xDF!><0xDF!>CSRLIN        POINT<0xDF!>   CSRLIN  CSRLIN   <0xDF!>POINT
  48. 460  PRINT"                  CSRLINPOINTPOINTPOINT <0xDF!>POINTPOINTPOINT<0xDF!>   CSRLIN    CSRLIN  CSRLIN      POINTCSRLINPOINTPOINTPOINTPOINTPOINTCSRLINPOINTPOINTCSRLINPOINTPOINTPOINTPOINTPOINTCSRLINPOINT
  49. 470  PRINT:COLOR 31,0,1
  50. 480  PRINT"                                 VERSION 4.2
  51. 490  COLOR 3,0,1:PRINT "                                July 25, 1984
  52. 500  COLOR 3,0,1:PRINT"              Suggested for use with printer and graphics board
  53. 510  PRINT"
  54. 520  PRINT"                               by John Belew
  55. 530  PRINT"                            (NurTROFFcc the Chaotic)
  56. 540  PRINT:COLOR 10,0,1
  57. 550  PRINT"                         of the Apple Eliminators":COLOR 3,0,1
  58. 560  SOU=INT(RND*2+1)
  59. 570  ON SOU GOTO 580,600
  60. 580  PLAY"O1MFT155L2DL4EL2FDL1GG#"
  61. 590  GOTO 650
  62. 600  FOR QWER= 220 TO 196 STEP-1
  63. 610  SOUND QWER,1
  64. 620  NEXT
  65. 630  PLAY"O1MLT155L2GP10EP10L1F#"
  66. 640  GOTO 650
  67. 650  PRINT
  68. 660  PRINT "     Make sure that all commands are done in capitals.  For help type `H'.
  69. 670  INPUT "                      Do you want instructions (Y/N)";ANS$
  70. 680  IF ANS$="Y" GOTO 11570
  71. 690  IF ANS$="y" GOTO 11570
  72. 700  REM
  73. 710  REM    ****************************************************
  74. 720  REM    *  WRITTEN BY JOHN BELEW FOR USE WITH THE I.B.M.   *
  75. 730  REM    *            AND OTHER COMPATIBLE                  *
  76. 740  REM    *        THANKS TO TSR FOR THE MONSTERS            *
  77. 750  REM    * THANKS TO RECREATIONAL COMPUTING FOR THE ORIGINAL*
  78. 760  REM    * PROGRAM          JUNE 29, 1984                   *
  79. 770  REM    ****************************************************
  80. 780  DEFINT A-Z
  81. 790  DIM C$(34),I$(34),R$(4),W$(8),E$(8)
  82. 800  DIM L(512),C(3,4),T(8),O(3),R(3)
  83. 810  DEF FNA(Q)=1+INT(RND(1)*Q)
  84. 820  DEF FNB(Q)=Q+8*((Q=9)-(Q=0))
  85. 830  DEF FNC(Q)=-Q*(Q<19)-18*(Q>18)
  86. 840  DEF FND(Q)=64*(Q-1)+8*(X-1)+Y
  87. 850  DEF FNE(Q)=Q+100*(Q>99)
  88. 860  COLOR 11,0,15:Y$="** Please answer yes or no":COLOR 3,0,1
  89. 870  NG=0
  90. 880  REM
  91. 890  REM   INITIALIZE ARRAYS
  92. 900  REM
  93. 910  NG=NG+1
  94. 920  Q=RND(1)
  95. 930  RESTORE
  96. 940  FOR Q=1 TO 34
  97. 950  READ C$(Q),I$(Q)
  98. 960  NEXT Q
  99. 970  FOR Q=1 TO 512
  100. 980  L(Q)=101
  101. 990  NEXT Q
  102. 1000  FOR Q=1 TO 8
  103. 1010  READ W$(Q),E$(Q)
  104. 1020  NEXT Q
  105. 1030  FOR Q=1 TO 4
  106. 1040  READ R$(Q)
  107. 1050  NEXT Q
  108. 1060  IF NG > 1 GOTO 1420
  109. 1070  'INPUT "                   Do you want instructions (Y/N)?";ANS$
  110. 1080  'PRINT
  111. 1090  'IF ANS$ = "Y" GOTO 12000
  112. 1100  'IF ANS$ = "y" GOTO 12000
  113. 1110  CLS
  114. 1120  PRINT "       KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  115. 1130  PRINT "       TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE";:COLOR 27,0,1:PRINT "* * * THE TEMPLE OF LOTH * * *";:COLOR 3,0,1:PRINT "TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  116. 1140  PRINT "       TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  117. 1150  'PRINT  OPEN                                                                 OPEN
  118. 1160  PRINT "       OPEN                                                                 OPEN
  119. 1170  'GOSUB 9060
  120. 1180  PRINT "       OPEN      Many generations ago, during the great Elfin Wars  of the  OPEN
  121. 1190  PRINT "       OPEN   first age, there stood the majestic temple of the Drow.  The  OPEN
  122. 1200  PRINT "       OPEN   Drow are an evil race of elves dedicated to the  destruction  OPEN
  123. 1210  PRINT "       OPEN   of all elves but themselves. During this time they were rul-  OPEN
  124. 1220  PRINT "       OPEN   ed by the the evil priestess,Tar-Anclime, a great sorceress.  OPEN
  125. 1230  PRINT "       OPEN   Under the aid of her goddess Loth, she created ";:COLOR 11,0,1:PRINT"the Amulet of";:COLOR 3,0,1:PRINT"  OPEN"
  126. 1240  PRINT "       OPEN";:COLOR 11,0,1:PRINT"   Chaos";:COLOR 3,0,1:PRINT" which was to be used to aid her side in the final des-  OPEN
  127. 1250  PRINT "       OPEN   truction of their rivals. The Drow massed for The final con-  OPEN
  128. 1260  PRINT "       OPEN   flict but they were attacked by their rival forces and there  OPEN
  129. 1270  PRINT "       OPEN   they were utterly destroyed. Now thousands of years later it  OPEN
  130. 1280  PRINT "       OPEN   is said that in the  kingdom of Rhyl that the descendents of  OPEN
  131. 1290  PRINT "       OPEN   the Drow are massing. The Drow plan to return to claim their  OPEN
  132. 1300  PRINT "       OPEN   homeland to retrieve ";:COLOR 11,0,1:PRINT "the Amulet of Chaos";:COLOR 3,0,1:PRINT" so they can finally  OPEN
  133. 1310  PRINT "       OPEN   destroy the elves of good. Living in the village shadowed by  OPEN
  134. 1320  PRINT "       OPEN   now crumbling  temple, you have been  chosen to retrieve the  OPEN
  135. 1330  PRINT "       OPEN   Amulet  before the Drow  return so that it can be destroyed.  OPEN
  136. 1340  PRINT "       OPEN   There are many  dangers that live in the  mazes of the ruins  OPEN
  137. 1350  PRINT "       OPEN   such as powerful  and  magic  monsters.  It is even believed  OPEN
  138. 1360  PRINT "       OPEN   that the some Drow still live in ruins.";:COLOR 28,0,1:PRINT" BEWARE!!!";:COLOR 3,0,1:PRINT"             OPEN
  139. 1370  PRINT "       OPEN                                                                 OPEN
  140. 1380  PRINT "       TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  141. 1390  PRINT "       TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  142. 1400  GOTO 1420
  143. 1410  PRINT "Wait one moment please while I stock the temple..."
  144. 1420  X=1 : Y=4
  145. 1430  L(FND(1))=2
  146. 1440  FOR Z=1 TO 7
  147. 1450  FOR Q1=1 TO 2
  148. 1460  Q=104
  149. 1470  GOSUB 10450
  150. 1480  L(FND(Z+1))=103
  151. 1490  NEXT Q1
  152. 1500  NEXT Z
  153. 1510  FOR Z=1 TO 8
  154. 1520  FOR Q=113 TO 124
  155. 1530  GOSUB 10450
  156. 1540  NEXT Q
  157. 1550  FOR Q1=1 TO 3
  158. 1560  FOR Q=105 TO 112
  159. 1570  GOSUB 10450
  160. 1580  NEXT Q
  161. 1590  Q=125
  162. 1600  GOSUB 10450
  163. 1610  NEXT Q1
  164. 1620  NEXT Z
  165. 1630  FOR Q=126 TO 133
  166. 1640  Z=FNA(8)
  167. 1650  GOSUB 10450
  168. 1660  NEXT Q
  169. 1670  Q=101
  170. 1680  FOR A=1 TO 3
  171. 1690  Z=FNA(8)
  172. 1700  GOSUB 10450
  173. 1710  C(A,1)=X
  174. 1720  C(A,3)=Z
  175. 1730  C(A,2)=Y
  176. 1740  C(A,4)=0
  177. 1750  NEXT A
  178. 1760  RC=0
  179. 1770  ST=2
  180. 1780  DX=8
  181. 1790  R$(3)="Man"
  182. 1800  Q=112+FNA(12)
  183. 1810  Z=FNA(8)
  184. 1820  GOSUB 10450
  185. 1830  R(1)=X
  186. 1840  R(2)=Y
  187. 1850  R(3)=Z
  188. 1860  Q=109
  189. 1870  Z=FNA(8)
  190. 1880  GOSUB 10450
  191. 1890  O(1)=X
  192. 1900  O(2)=Y
  193. 1910  O(3)=Z
  194. 1920  BF=0 : OT=8 : AV=0 : HT=0 : T=1 : VF=0 : LF=0
  195. 1930  TC=0 : GP!=60 : RF=0 : OF=0 : BL=0 : IQ=8 : SX=0
  196. 1940  FOR Q=1 TO 8
  197. 1950  T(Q)=0
  198. 1960  NEXT Q
  199. 1970  PRINT CHR$(7);
  200. 1980  CLS
  201. 1990  PRINT
  202. 2000  PRINT
  203. 2010  COLOR 11,0,1:PRINT "  You are in large room blinded by a very bright light.  All of the sudden you "
  204. 2020  PRINT "hear a booming voice which says, `You have been chosen bold one to be a valiant"
  205. 2030  PRINT "and brave  warrior of any race you desire.  You can choose to be an Elf, a Man,"
  206. 2040  PRINT "a Dwarf or a Hobbit.' Remember though, you only have 500 turns.":COLOR 3,0,1
  207. 2050  COLOR 3,0,1
  208. 2060  GOSUB 10690
  209. 2070  FOR Q=1 TO 4
  210. 2080  STR = INT(RND*10+2)
  211. 2090  DEX = INT(RND*10+2)
  212. 2100  IF LEFT$(R$(Q),1)=O$ THEN RC=Q : ST=STR*Q : DX=DEX*Q
  213. 2110  IF ST > 18 THEN ST=18
  214. 2120  IF DX > 18 THEN DX =18
  215. 2130  NEXT Q
  216. 2140  PRINT
  217. 2150  OT=OT+4*(RC=1)
  218. 2160  IF RC > 0 THEN R$(3)="Human" : GOTO 2190
  219. 2170  COLOR 11,0,15:PRINT "** That was incorrect. Please type E, D, M, OR H.":COLOR 3,0,1
  220. 2180  GOTO 2060
  221. 2190  PRINT "Which sex do you prefer";
  222. 2200  GOSUB 10710
  223. 2210  IF O$="M" THEN SX=1 : GOTO 2250
  224. 2220  IF O$="F" GOTO 2250
  225. 2230  COLOR 11,0,15:PRINT "** Cute ";R$(RC);", Real cute. Try M OR F.":COLOR 3,0,1
  226. 2240  GOTO 2190
  227. 2250  PRINT
  228. 2260  PRINT "OK, ";R$(RC);", you have the following attributes :"
  229. 2270  PRINT "Strength =";ST
  230. 2280  PRINT "Intelligence =";IQ
  231. 2290  PRINT "Dexterity =";DX
  232. 2300  PRINT "and";OT;"other points you allocate as you wish."
  233. 2310  PRINT
  234. 2320  Z$="Strength"
  235. 2330  GOSUB 10740
  236. 2340  ST=ST+Q
  237. 2350  IF OT=0 GOTO 2430
  238. 2360  Z$="Intelligence"
  239. 2370  GOSUB 10740
  240. 2380  IQ=IQ+Q
  241. 2390  IF OT=0 GOTO 2430
  242. 2400  Z$="Dexterity"
  243. 2410  GOSUB 10740
  244. 2420  DX=DX+Q
  245. 2430  PRINT "OK, ";R$(RC);", you find your self at a bazaar in a small village built in the "
  246. 2440  PRINT "shadow of a large and crumbling castle.  You have nothing save the clothes on "
  247. 2450  PRINT "your back and a purse containing 60gp's to buy your equipments with."
  248. 2460  Z$="Armor"
  249. 2470  GOSUB 10990
  250. 2480  AV=0 : WV=0 : FL=0 : WC=0
  251. 2490  PRINT "Plate Mail:30gp's Chainmail:20gp's Leather:10gp's Nothing:-
  252. 2500  GOSUB 10690
  253. 2510  IF O$="N" GOTO 2570
  254. 2520  AV=-3*(O$="P")-2*(O$="C")-(O$="L")
  255. 2530  IF AV > 0 GOTO 2570
  256. 2540  PRINT
  257. 2550  COLOR 11,0,15:PRINT "** Are you a ";R$(RC);" or ";C$(FNA(12)+12);"?":COLOR 3,0,1
  258. 2560  GOTO 2460
  259. 2570  AH=AV*7 : GP!=GP!-AV*10
  260. 2580  PRINT
  261. 2590  PRINT "OK, bold ";R$(RC);", you have";GP!;"gp's left."
  262. 2600  PRINT
  263. 2610  Z$="Weapons"
  264. 2620  GOSUB 10990
  265. 2630  PRINT "Sword:30gp's Mace:20gp's Dagger:10gp's Nothing:-"
  266. 2640  GOSUB 10690
  267. 2650  IF O$="N" GOTO 2710
  268. 2660  WV=-3*(O$="S")-2*(O$="M")-(O$="D")
  269. 2670  IF WV > 0 GOTO 2710
  270. 2680  PRINT 
  271. 2690  COLOR 11,0,15:PRINT "** Is your IQ really";IQ;"?":COLOR 3,0,1
  272. 2700  GOTO 2610
  273. 2710  GP!=GP!-WV*10
  274. 2720  IF GP! < 20 GOTO 2780
  275. 2730  PRINT
  276. 2740  PRINT "Do you want to buy a lamp for 20gp's";
  277. 2750  GOSUB 10710
  278. 2760  IF O$="Y" THEN LF=1 : GP!=GP!-20 : GOTO 2780
  279. 2770  IF O$ <> "N" THEN PRINT : PRINT Y$ : PRINT : GOTO 2740
  280. 2780  PRINT
  281. 2790  IF GP! < 1 THEN Q=0 : GOTO 2900
  282. 2800  PRINT "OK, ";R$(RC);", you have";GP!;"gold pieces left."
  283. 2810  PRINT
  284. 2820  INPUT "Flares give off light which allows you to see all the rooms around you.  At a   cost of 1gp each how many do you want to buy?";O$
  285. 2830  Q=VAL(O$)
  286. 2840  PRINT
  287. 2850  IF Q > 0 OR ASC(O$)=48 GOTO 2890
  288. 2860  COLOR 11,0,15:PRINT "** If you don't want any, just type 0.":COLOR 3,0,1
  289. 2870  PRINT
  290. 2880  GOTO 2820
  291. 2890  COLOR 11,0,15:IF Q > GP! THEN PRINT "** You can only afford";GP!;"." :COLOR 3,0,1: PRINT : GOTO 2820
  292. 2900  FL=FL+Q : GP!=GP!-Q
  293. 2910  X=1 : Y=4 : Z=1
  294. 2920  COLOR 27,0,15:PRINT "OK, ";R$(RC);", You are now entering the castle!":COLOR 3,0,1:
  295. 2930  GOTO 6370
  296. 2940  REM
  297. 2950  REM   MAIN PROCESSING LOOP
  298. 2960  REM
  299. 2970  T=T+1
  300. 2980  IF RF+OF > 0 GOTO 3110
  301. 2990  IF C(1,4) > T(1) THEN T=T+1
  302. 3000  IF C(2,4) > T(3) THEN GP!=GP!-FNA(5)
  303. 3010  IF GP! < 0 THEN GP!=0
  304. 3020  IF C(3,4) <= T(5) GOTO 3110
  305. 3030  A=X : B=Y : C=Z
  306. 3040  X=FNA(8) : Y=FNA(8) : Z=FNA(8)
  307. 3050  L(FND(Z))=FNE(L(FND(Z)))+100
  308. 3060  X=A : Y=B : Z=C
  309. 3070  IF L(FND(Z)) <> 1 GOTO 3110
  310. 3080  FOR Q=1 TO 3
  311. 3090  C(Q,4)=-(C(Q,1)=X)*(C(Q,2)=Y)*(C(Q,3)=Z)
  312. 3100  NEXT Q
  313. 3110  IF FNA(5) > 1 GOTO 3610
  314. 3120  PRINT
  315. 3130  PRINT "You ";
  316. 3140  Q=FNA(7)+BL
  317. 3150  IF Q > 7 THEN Q=4
  318. 3160  ON Q GOSUB 3460,3200,3440,3180,3480,3510,3530
  319. 3170  GOTO 3610
  320. 3180  PRINT "stepped on dragon @#*%!"
  321. 3190  RETURN
  322. 3200  PRINT "hear ";
  323. 3210  ON FNA(4) GOTO 3220,3280,3360,3390
  324. 3220  PRINT "a scream!"
  325. 3230  FOR I=2075 TO 1800 STEP-1
  326. 3240  SOUND I,0.000999999
  327. 3250  NEXT
  328. 3260  SOUND 32729,1
  329. 3270  RETURN
  330. 3280  PRINT "footsteps!"
  331. 3290  'FOR I=1 TO 5
  332. 3300  FOR J=40 TO 37 STEP-1
  333. 3310  SOUND J,1
  334. 3320  SOUND 32729,10
  335. 3330  'NEXT
  336. 3340  NEXT
  337. 3350  RETURN
  338. 3360  PRINT "a Wumpus!"
  339. 3370  PLAY "O0MST255L4AGP5AGP5AGP5AG
  340. 3380  RETURN
  341. 3390  PRINT "groans!"
  342. 3400  FOR I = 300 TO 37 STEP-1
  343. 3410  SOUND I,0.1
  344. 3420  NEXT
  345. 3430  RETURN
  346. 3440  PRINT "sneezed!"
  347. 3450  RETURN
  348. 3460  PRINT "see a bat fly by!"
  349. 3470  RETURN
  350. 3480  PRINT "hear a ";C$(12+FNA(13));" growling!"
  351. 3490  GOTO 3400
  352. 3500  RETURN
  353. 3510  PRINT "feel like you're being watched!"
  354. 3520  RETURN
  355. 3530  PRINT "hear faint rustling noises!"
  356. 3540  FOR Q=1 TO 200
  357. 3550  A = INT(RND*50+37)
  358. 3560  SOUND A,0.000999999
  359. 3570  'SOUND 32729,1
  360. 3580  NEXT
  361. 3590  SOUND 32729,1
  362. 3600  RETURN
  363. 3610  IF BL+T(4) <> 2 GOTO 3650
  364. 3620  PRINT
  365. 3630  PRINT C$(29);" cures your blindness!"
  366. 3640  BL=0
  367. 3650  IF BF+T(6) <> 2 GOTO 3690
  368. 3660  PRINT
  369. 3670  PRINT C$(31);" dissolves the book!"
  370. 3680  BF=0
  371. 3690  PRINT
  372. 3695  PRINT
  373. 3700  LOCATE 23,1:COLOR 3,0,1:PRINT "Enter your command:
  374. 3705  FOR ASD= 1 TO 2
  375. 3710  LOCATE 23,20:PRINT "-":SOUND 32767,1
  376. 3720  LOCATE 23,20:PRINT "\":SOUND 32767,1
  377. 3730  LOCATE 23,20:PRINT "CALL":SOUND 32767,1
  378. 3740  LOCATE 23,20:PRINT "/":SOUND 32767,1
  379. 3750  LOCATE 23,20:PRINT "-":SOUND 32767,1
  380. 3760  LOCATE 23,20:PRINT "\":SOUND 32767,1
  381. 3770  LOCATE 23,20:PRINT "CALL":SOUND 32767,1
  382. 3780  LOCATE 23,20:PRINT "/":SOUND 32767,1
  383. 3790  LOCATE 23,20:PRINT "-";:SOUND 32767,1
  384. 3791  'LINE INPUT O$
  385. 3792  NEXT
  386. 3795  LINE INPUT O$
  387. 3800  IF LEFT$(O$,2)="DR" GOTO 5180
  388. 3810  O$=LEFT$(O$,1)
  389. 3820  IF O$="N" GOTO 4300
  390. 3830  IF (O$="S") OR (O$="W") OR (O$="E") GOTO 4310
  391. 3840  IF O$="U" GOTO 4360
  392. 3850  IF O$="D" GOTO 4390
  393. 3860  IF O$="INKEY$" GOTO 10210
  394. 3870  IF O$="M" GOTO 4440
  395. 3880  IF O$="F" THEN ON BL+1 GOTO 4680,4440
  396. 3890  IF O$="L" THEN ON BL+1 GOTO 4940,4440
  397. 3900  IF O$="O" GOTO 5370
  398. 3910  IF O$="Q" GOTO 6240
  399. 3920  IF O$="G" THEN ON BL+1 GOTO 5830,4440
  400. 3930  IF O$="T" THEN PRINT : ON RF+1 GOTO 6090,6130
  401. 3940  IF O$="#" GOTO 11050
  402. 3950  IF O$ ="H" GOTO 3970
  403. 3960  GOTO 4280
  404. 3970  INPUT "Do you want a hard copy (Y/N)";HARD$
  405. 3980  IF HARD$ = "Y"  GOTO 11100
  406. 3990  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  407. 4000  PRINT"OPEN";:COLOR 27,0,1:PRINT "   *** TEMPLE OF LOTH'S COMMAND AND INFORMATION SUMMARY ***";:COLOR 3,0,1:PRINT "   OPEN
  408. 4010   PRINT "TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  409. 4020   PRINT "OPEN The following commands available are:                        OPEN"
  410. 4030   PRINT "OPEN                                                              OPEN"
  411. 4040   PRINT "OPEN H/elp     N/orth    S/outh    E/ast     W/est     U/p        OPEN"
  412. 4050   PRINT "OPEN D/own     DR/ink    M/ap      F/lare    L/amp     O/pen      OPEN"
  413. 4060   PRINT "OPEN G/aze     T/eleport Q/uit     #/Score                        OPEN"
  414. 4070   PRINT "TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  415. 4080   PRINT "OPEN The contents of the rooms are as follows:                    OPEN"
  416. 4090   PRINT "OPEN                                                              OPEN"
  417. 4100   PRINT "OPEN TAB( = empty room      B = book            C = chest            OPEN"
  418. 4110   PRINT "OPEN D = stairs down     OR = entrance/exit   <0x9F!> = flares           OPEN"
  419. 4120   PRINT "OPEN G = gold pieces     LPRINT = monster         < = crystal orb      OPEN"
  420. 4130   PRINT "OPEN P = magic pool      S = sinkhole        T = treasure         OPEN"
  421. 4140   PRINT "OPEN U = stairs up       * = Drow            CSRLIN = warp/amulet      OPEN"
  422. 4150   PRINT "TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  423. 4160   PRINT "OPEN The benefits of having treasures are:                        OPEN"
  424. 4170   PRINT "OPEN                                                              OPEN"
  425. 4180   PRINT "OPEN RUBY RED - avoid lethargy    PALE PEARL - avoid leech        OPEN"
  426. 4190   PRINT "OPEN GREEN GEM - avoid forgetting  OPAL EYE - cure blindness      OPEN"
  427. 4200   PRINT "OPEN BLUE FLAME - dissolves books  NORN STONE - no benefit        OPEN"
  428. 4210   PRINT "OPEN PALANTIR - no benefit         SILMARIL - no benefit          OPEN"
  429. 4220   PRINT "TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  430. 4230  PRINT
  431. 4240  PRINT "Press return when ready to resume, ";R$(RC);".";
  432. 4250  LINE INPUT "";O$
  433. 4260  GOTO 2970
  434. 4270  PRINT
  435. 4280  COLOR 11,0,15:PRINT "** Bold ";R$(RC);", that wasn't a valid command!":COLOR 3,0,1
  436. 4290  GOTO 2970
  437. 4300  IF L(FND(Z))=2 GOTO 9710
  438. 4310  X=X+(O$="N")-(O$="S")
  439. 4320  Y=Y+(O$="W")-(O$="E")
  440. 4330  X=FNB(X)
  441. 4340  Y=FNB(Y)
  442. 4350  GOTO 6370
  443. 4360  IF L(FND(Z))=3 THEN Z=Z-1 : GOTO 6370
  444. 4370  Z$="Up"
  445. 4380  GOTO 4410
  446. 4390  Z$="Down"
  447. 4400  IF L(FND(Z))=4 THEN Z=Z+1 : GOTO 6370
  448. 4410  PRINT
  449. 4420  COLOR 11,0,15:PRINT "** There are no stairs going ";Z$;" from here!":COLOR 3,0,1
  450. 4430  GOTO 2970
  451. 4440  IF BL <> 1 GOTO 4520
  452. 4450  PRINT
  453. 4460  COLOR 11,0,15:PRINT "** You can't see anything ";R$(RC);"!":COLOR 3,0,1
  454. 4470  GOTO 2970
  455. 4480  REM
  456. 4490  REM   DISPLAY MAP OF CURRENT CASTLE LEVEL
  457. 4500  REM
  458. 4510  COLOR 6,0,1
  459. 4520  PRINT
  460. 4530  A=X : B=Y
  461. 4540  FOR X=1 TO 8
  462. 4550  FOR Y=1 TO 8
  463. 4560  Q=L(FND(Z))
  464. 4570  IF Q > 99 THEN Q=Q-100:LET Q=34:REM TO HIDE ROOMS
  465. 4580  COLOR 6,0,1:IF X=A AND Y=B THEN PRINT "<";I$(Q);">  "; : GOTO 4600:COLOR 3,0,1
  466. 4590  COLOR 6,0,1:PRINT " ";I$(Q);"   ";:COLOR 3,0,1
  467. 4600  NEXT Y
  468. 4610  COLOR 3,0,1:PRINT
  469. 4620  PRINT
  470. 4630  NEXT X
  471. 4640  X=A : Y=B
  472. 4650  GOTO 4890
  473. 4660  COLOR 12,0,1:PRINT ") level";Z:COLOR 3,0,1
  474. 4670  GOTO 2970
  475. 4680  IF FL <> 0 GOTO 4740
  476. 4690  COLOR 11,0,15:PRINT "** You can't, your out of flares!":COLOR 3,0,1
  477. 4700  GOTO 2970
  478. 4710  REM
  479. 4720  REM   DISPLAY ADJACENT ROOM CONTENTS WITH FLARE
  480. 4730  REM
  481. 4740  PRINT
  482. 4750  FL=FL-1
  483. 4760  A=X : B=Y
  484. 4770  FOR Q1=A-1 TO A+1
  485. 4780  X=FNB(Q1)
  486. 4790  FOR Q2=B-1 TO B+1
  487. 4800  Y=FNB(Q2)
  488. 4810  Q=FNE(L(FND(Z)))
  489. 4820  L(FND(Z))=Q
  490. 4830  COLOR 12,0,1:PRINT " ";I$(Q);"   ";:COLOR 3,0,1
  491. 4840  NEXT Q2
  492. 4850  PRINT
  493. 4860  PRINT
  494. 4870  NEXT Q1
  495. 4880  X=A : Y=B
  496. 4890  GOSUB 11020
  497. 4900  GOTO 2970
  498. 4910  REM
  499. 4920  REM   DISPLAY CONTENTS OF ADJACENT ROOM WITH LAMP
  500. 4930  REM
  501. 4940  IF LF <> 0 GOTO 4980
  502. 4950  PRINT
  503. 4960  COLOR 11,0,15:PRINT "** You don't have a lamp, ";R$(RC);"!":COLOR 3,0,1
  504. 4970  GOTO 2970
  505. 4980  PRINT
  506. 4990  PRINT "Where do you want to shine the lamp (N,S,E,W)";
  507. 5000  GOSUB 10710
  508. 5010  A=X : B=Y
  509. 5020  X=FNB(X+(O$="N")-(O$="S"))
  510. 5030  Y=FNB(Y+(O$="W")-(O$="E"))
  511. 5040  IF A-X+B-Y <> 0 GOTO 5080
  512. 5050  PRINT
  513. 5060  COLOR 11,0,15:PRINT "** That's not a direction ";R$(RC);"!":COLOR 3,0,1
  514. 5070  GOTO 2970
  515. 5080  PRINT
  516. 5090  PRINT "The lamp shines into (";X;",";Y;") level";Z;"."
  517. 5100  PRINT
  518. 5110  L(FND(Z))=FNE(L(FND(Z)))
  519. 5120  PRINT "There you will find ";C$(L(FND(Z)));"."
  520. 5130  X=A : Y=B
  521. 5140  GOTO 2970
  522. 5150  REM
  523. 5160  REM   TAKE A DRINK FROM A POOL
  524. 5170  REM
  525. 5180  IF L(FND(Z))=5 GOTO 5220
  526. 5190  PRINT
  527. 5200  COLOR 11,0,15:PRINT "** There is no pool to drink from here!":COLOR 3,0,1
  528. 5210  GOTO 2970
  529. 5220  Q=FNA(8)
  530. 5230  PRINT
  531. 5240  PRINT "You take a drink and ";
  532. 5250  IF Q < 7 THEN PRINT "feel ";
  533. 5260  ON Q GOTO 5270,5280,5290,5300,5310,5320,5330,5350
  534. 5270  ST=FNC(ST+FNA(3)) : PRINT "stronger." : GOTO 2970
  535. 5280  ST=ST-FNA(3) :COLOR 15,0,0: PRINT "weaker.":COLOR 7,0,0 : ON (1-(ST<1)) GOTO 2880,9120
  536. 5290  IQ=FNC(IQ+FNA(3)) : PRINT "smarter." : GOTO 2970
  537. 5300  IQ=IQ-FNA(3) :COLOR 11,0,15:PRINT "dumber.":COLOR 3,0,1: ON (1-(IQ<1)) GOTO 2970,9590
  538. 5310  DX=FNC(DX+FNA(3)) : PRINT "faster." : GOTO 2970
  539. 5320  DX=DX-FNA(3) :COLOR 11,0,15: PRINT "clumsier." :COLOR 3,0,1: ON (1-(DX<1)) GOTO 2970,9590
  540. 5330  Q=FNA(4) : IF Q=RC GOTO 5330
  541. 5340  RC=Q : PRINT "become a ";R$(RC);"." : GOTO 2970
  542. 5350  SX=1-SX : PRINT "turn into a "; : IF SX=0 THEN PRINT "fe";
  543. 5360  PRINT "male ";R$(RC);"!" : GOTO 2970
  544. 5370  IF L(FND(Z)) <> 6 GOTO 5410
  545. 5380  PRINT
  546. 5390  PRINT "You open the chest and"
  547. 5400  GOTO 5670
  548. 5410  IF L(FND(Z)) <> 12 GOTO 5450
  549. 5420  PRINT
  550. 5430  PRINT "You open the book and"
  551. 5440  GOTO 5480
  552. 5450  PRINT
  553. 5460  COLOR 11,0,15:PRINT "** there is nothing to open here.":COLOR 3,0,1
  554. 5470  GOTO 2970
  555. 5480  ON FNA(6) GOTO 5490,5520,5540,5560,5590,5620
  556. 5490  COLOR 0,15,15:CLS:PRINT "Flash! Oh no! you are now a blind ";R$(RC);"!"
  557. 5500  BL=1
  558. 5510  GOTO 5650
  559. 5520  PRINT "It's another volume of NurTROFFcc's poetry! - YECH!!"
  560. 5530  GOTO 5650
  561. 5540  PRINT "It's an old copy of Play";R$(FNA(4));"!"
  562. 5550  GOTO 5650
  563. 5560  PRINT "It's a manual of dexterity!"
  564. 5570  DX=18
  565. 5580  GOTO 5650
  566. 5590  PRINT "It's a manual of strength!"
  567. 5600  ST=18
  568. 5610  GOTO 5650
  569. 5620  COLOR 11,0,15:PRINT"The book sticks to your hands -"
  570. 5630  PRINT "now you are unable to draw your weapon!":COLOR 3,0,1
  571. 5640  BF=1
  572. 5650  L(FND(Z))=1
  573. 5660  GOTO 2970
  574. 5670  ON FNA(4) GOTO 5680,5730,5770,5730
  575. 5680  PRINT
  576. 5690  COLOR 14,0,15:PRINT "KABOOM!";:COLOR 3,0,1:PRINT " it explodes!!"
  577. 5700  Q=FNA(6)
  578. 5710  GOSUB 9490
  579. 5720  ON (1-(ST<1)) GOTO 5650,9590
  580. 5730  Q=FNA(1000)
  581. 5740  PRINT "find";Q;"gold pieces!"
  582. 5750  GP!=GP!+Q
  583. 5760  GOTO 5650
  584. 5770  PRINT
  585. 5780  COLOR 5,0,15:PRINT "GAS!!";:COLOR 3,0,1:PRINT "you stagger from the room!"
  586. 5790  L(FND(Z))=1
  587. 5800  T=T+20
  588. 5810  O$=MID$("NSEW",FNA(4),1)
  589. 5820  GOTO 4310
  590. 5830  IF L(FND(Z))=11 GOTO 5870
  591. 5840  PRINT
  592. 5850  COLOR 11,0,15:PRINT "**You need an orb to use the gaze command!":COLOR 3,0,1
  593. 5860  GOTO 2970
  594. 5870  PRINT
  595. 5880  PRINT "You see ";
  596. 5890  ON FNA(6) GOTO 5900,5920,5940,5960,6030,6070
  597. 5900  PRINT "Yourself in a bloody mess!"
  598. 5910  ST=ST-FNA(2) : ON (1-(ST<1)) GOTO 2970,9590
  599. 5920  PRINT "Yourself drinking from a pool and becoming ";C$(12+FNA(13));"!"
  600. 5930  GOTO 2970
  601. 5940  PRINT C$(12+FNA(13));" gazing back at you!"
  602. 5950  GOTO 2970
  603. 5960  A=X : B=Y : C=Z
  604. 5970  X=FNA(8) : Y=FNA(8) : Z=FNA(8)
  605. 5980  Q=FNE(L(FND(Z)))
  606. 5990  L(FND(Z))=Q
  607. 6000  PRINT C$(Q);" at (";X;",";Y;") level";Z;"."
  608. 6010  X=A : Y=B : Z=C
  609. 6020  GOTO 2970
  610. 6030  A=FNA(8) : B=FNA(8) : C=FNA(8)
  611. 6040  IF FNA(8) < 4 THEN A=O(1) : B=O(2) : C=O(3)
  612. 6050  BEEP:COLOR 12,0,15:PRINT "The Amulet of Chaos at (";A;",";B;") level";C;"!":COLOR 3,0,1
  613. 6060  GOTO 2970
  614. 6070  PRINT "a soap opera rerun!"
  615. 6080  GOTO 2970
  616. 6090  IF RF <> 0 GOTO 6130
  617. 6100  PRINT
  618. 6110  COLOR 11,0,15:PRINT "** You can't teleport without the Runestaff!":COLOR 3,0,1
  619. 6120  GOTO 2970
  620. 6130  Z$="X-Coordinate"
  621. 6140  GOSUB 10850
  622. 6150  X=Q
  623. 6160  Z$="Y-Coordinate"
  624. 6170  GOSUB 10850
  625. 6180  Y=Q
  626. 6190  Z$="Z-Coordinate"
  627. 6200  GOSUB 10850
  628. 6210  Z=Q
  629. 6220  O$="T"
  630. 6230  GOTO 6370
  631. 6240  PRINT
  632. 6250  PRINT "Do you really want to quit now?";
  633. 6260  GOSUB 10710
  634. 6270  PRINT
  635. 6280  IF O$="Y" GOTO 6310
  636. 6290  COLOR 11,0,15:PRINT "** Then don't say that you do!":COLOR 3,0,1
  637. 6300  GOTO 2970
  638. 6310  PRINT
  639. 6320  GOTO 9870
  640. 6330  REM
  641. 6340  REM   DISPLAY STATUS INFORMATION
  642. 6350  REM
  643. 6360  CLS
  644. 6370  COLOR 3,0,1:PRINT
  645. 6380  IF BL=0 THEN GOSUB 11020 : PRINT
  646. 6390  LOCATE 24,1:COLOR 3,0,1
  647. 6400  PRINT "Strength =";ST;" Intelligence =";IQ;" Dexterity =";DX
  648. 6410  PRINT "Treasures =";TC;" Flares =";FL;" Gold Pieces =";GP!
  649. 6420  PRINT "Turns =";T;"  Weapon = ";W$(WV+1);"  Armor = ";W$(AV+5);
  650. 6430  IF LF=1 THEN PRINT "  and a lamp"
  651. 6440  IF LF=0 THEN PRINT "   "
  652. 6450  JOHN!=IQ*100+ST*100+DX*100+KM!+FTRS+REQ+GP!-T*5
  653. 6460  ' IF JOHN! > 30000 THEN JOHN!=30000
  654. 6470  ' IF GP! > 30000 THEN GP!=30000
  655. 6480  PRINT"Score =";JOHN!;
  656. 6490  PRINT "  Status = ";
  657. 6500  EQUZ=0
  658. 6510  IF BL = 1 THEN PRINT "-Blinded":EQUZ=1
  659. 6520  IF BF = 1 THEN PRINT "-Unable to draw weapon":EQUZ=1
  660. 6530  IF EQUZ=0 THEN PRINT "-Normal"
  661. 6540  MAGICAL=0
  662. 6550  PRINT "Your are carrying ";
  663. 6560  IF OF = 1 THEN COLOR 12,0,1:PRINT "The Amulet of Chaos":COLOR 3,0,1:MAGICAL=1
  664. 6570  IF RF = 1 THEN PRINT "The Runestaff":MAGICAL=1
  665. 6580  IF MAGICAL=0 THEN PRINT "no magical items at the moment"
  666. 6590  QXYZ=0
  667. 6600  PRINT "The treasures you carry are ";
  668. 6610  FOR Q=1 TO 8
  669. 6620  IF T(Q)=1 THEN PRINT C$ (Q+25):QXYZ=1
  670. 6630  NEXT Q
  671. 6640  IF QXYZ=0 THEN PRINT "nothing"
  672. 6650  IF COME=1 THEN GOTO 6670
  673. 6660  IF T > 500 THEN GOTO 11380
  674. 6670  WC=0
  675. 6680  Q=FNE(L(FND(Z)))
  676. 6690  L(FND(Z))=Q
  677. 6700  Z$="You now have "
  678. 6710  PRINT
  679. 6720  PRINT "Here you find ";C$(Q);"."
  680. 6730  IF (Q<7) OR (Q=11) OR (Q=12) GOTO 2970
  681. 6740  IF Q=7 THEN GP!=GP!+FNA(10) : PRINT Z$;GP!;"." : GOTO 5650
  682. 6750  IF Q=8 THEN FL=FL+FNA(5) : PRINT Z$;FL;"." : GOTO 5650
  683. 6760  IF Q > 9 GOTO 6790
  684. 6770  IF (O(1)=X) AND (O(2)=Y) AND (O(3)=Z) THEN ON (1-(O$="T")) GOTO 4310,10190
  685. 6780  X=FNA(8) : Y=FNA(8) : Z=FNA(8) : GOTO 6370
  686. 6790  IF Q=10 THEN Z=FNB(Z+1) : GOTO 6370
  687. 6800  IF Q <= 25 OR Q >= 34 GOTO 6860
  688. 6810  PRINT
  689. 6820  PRINT "It's now yours!"
  690. 6830  T(Q-25)=1
  691. 6840  TC=TC+1
  692. 6850  GOTO 5650
  693. 6860  A=L(FND(Z))-12
  694. 6870  WC=0
  695. 6880  IF (A<13) OR (VF=1) GOTO 8070
  696. 6890  PRINT
  697. 6900  PRINT "You may trade with, attack, or ignore the Drow Merchant."
  698. 6910  GOSUB 10690
  699. 6920  IF O$="I" GOTO 2970
  700. 6930  IF O$ <> "A" GOTO 6980
  701. 6940  VF=1
  702. 6950  PRINT
  703. 6960  COLOR 3,0,12:PRINT "You'll be sorry that you did that!"
  704. 6970  GOTO 8070
  705. 6980  IF O$="T" GOTO 7020
  706. 6990  PRINT
  707. 7000  COLOR 11,0,15:PRINT "** Nice shot ";R$(RC);"!":COLOR 3,0,1
  708. 7010  GOTO 6890
  709. 7020  FOR Q=1 TO 8
  710. 7030  A=FNA(Q*1500)
  711. 7040  IF T(Q)=0 GOTO 7100
  712. 7050  PRINT
  713. 7060  PRINT "Do you want to sell ";C$(Q+25);" for ";A;"gp's";
  714. 7070  GOSUB 10710
  715. 7080  IF O$="Y" THEN TC=TC-1 : T(Q)=0 : GP!=GP!+A : GOTO 7100
  716. 7090  IF O$ <> "N" THEN PRINT Y$ : GOTO 7050
  717. 7100  NEXT Q
  718. 7110  IF GP! >= 1000 GOTO 7150
  719. 7120  PRINT
  720. 7130  PRINT "You're too poor to trade, ";R$(RC);"."
  721. 7140  GOTO 2970
  722. 7150  IF GP! < 1250 GOTO 7650
  723. 7160  PRINT
  724. 7170  PRINT "OK ";R$(RC);", you have ";GP!;"gp's and ";W$(AV+5);" armor."
  725. 7180  PRINT
  726. 7190  Z$="Armor"
  727. 7200  GOSUB 10990
  728. 7210  PRINT "Nothing:0gp's Leather:1250gp's ";
  729. 7220  IF GP! > 1499 THEN PRINT "Chainmail:1500:gp's ";
  730. 7230  IF GP! > 1999 THEN PRINT "Plate Mail:2000gp's ";
  731. 7240  PRINT
  732. 7250  GOSUB 10690
  733. 7260  PRINT
  734. 7270  IF O$="N" GOTO 7400
  735. 7280  IF O$="L" THEN GP!=GP!-1250 : AV=1 : AH=7 : GOTO 7400
  736. 7290  IF O$ <> "C" OR GP! >= 1500 GOTO 7320
  737. 7300  COLOR 11,0,15:PRINT "** You haven't got that much gold on hand!":COLOR 3,0,1
  738. 7310  GOTO 7180
  739. 7320  IF O$="C" THEN GP!=GP!-1500 : AV=2 : AH=14 : GOTO 7400
  740. 7330  IF O$ <> "P" OR GP! >= 2000 GOTO 7360
  741. 7340  COLOR 11,0,15:PRINT "** You can't afford plate mail!":COLOR 3,0,1
  742. 7350  GOTO 7180
  743. 7360  IF O$="P" THEN GP!=GP!-2000 : AV=3 : AH=21 : GOTO 7400
  744. 7370  PRINT
  745. 7380  COLOR 11,0,15:PRINT "** Choose a selection.":COLOR 3,0,1
  746. 7390  GOTO 7240
  747. 7400  IF GP! < 1250 GOTO 7650
  748. 7410  PRINT
  749. 7420  PRINT "You have";GP!;"gp's left with ";W$(WV+1);" in hand."
  750. 7430  PRINT
  751. 7440  Z$="Weapon"
  752. 7450  GOSUB 10990
  753. 7460  PRINT "Nothing:- Dagger:1250gp's";
  754. 7470  IF GP! > 1499 THEN PRINT "Mace:1500gp's";
  755. 7480  IF GP! > 1999 THEN PRINT "Sword:2000gp's";
  756. 7490  PRINT
  757. 7500  GOSUB 10690
  758. 7510  PRINT
  759. 7520  IF O$="N" GOTO 7650
  760. 7530  IF O$="D" THEN GP!=GP!-1250 : WV=1 : GOTO 7650
  761. 7540  IF O$ <> "M" OR GP! >= 1500 GOTO 7570
  762. 7550  COLOR 11,0,15:PRINT "** Sorry sir, I'm afraid I don't give credit!":COLOR 3,0,1
  763. 7560  GOTO 7430
  764. 7570  IF O$="M" THEN GP!=GP!-1500 : WV=2 : GOTO 7650
  765. 7580  IF O$ <> "S" OR GP! >= 2000 GOTO 7620
  766. 7590  COLOR 11,0,15:PRINT "** Your Dungeon Express Card - ";
  767. 7600  PRINT "You left home without it!":COLOR 3,0,1
  768. 7610  GOTO 7430
  769. 7620  IF O$="S" THEN GP!=GP!-2000 : WV=3 : GOTO 7650
  770. 7630  COLOR 11,0,15:PRINT "** Try choosing a selection!":COLOR 3,0,1
  771. 7640  GOTO 7490
  772. 7650  IF GP! < 1000 GOTO 2970
  773. 7660  Z$="Strength"
  774. 7670  GOSUB 10930
  775. 7680  IF O$ <> "Y" GOTO 7740
  776. 7690  GP!=GP!-1000
  777. 7700  ST=FNC(ST+FNA(6))
  778. 7710  Q=ST
  779. 7720  GOSUB 10960
  780. 7730  GOTO 7650
  781. 7740  IF O$ <> "N" THEN PRINT Y$ : GOTO 7660
  782. 7750  IF GP! < 1000 GOTO 2970
  783. 7760  Z$="Intelligence"
  784. 7770  GOSUB 10930
  785. 7780  IF O$ <> "Y" GOTO 7840
  786. 7790  GP!=GP!-1000
  787. 7800  IQ=FNC(IQ+FNA(6))
  788. 7810  Q=IQ
  789. 7820  GOSUB 10960
  790. 7830  GOTO 7750
  791. 7840  IF O$ <> "N" THEN PRINT Y$ : GOTO 7760
  792. 7850  IF GP! < 1000 GOTO 2970
  793. 7860  Z$="Dexterity"
  794. 7870  GOSUB 10930
  795. 7880  IF O$ <> "Y" GOTO 7940
  796. 7890  GP!=GP!-1000
  797. 7900  DX=FNC(DX+FNA(6))
  798. 7910  Q=DX
  799. 7920  GOSUB 10960
  800. 7930  GOTO 7850
  801. 7940  IF O$ <> "N" THEN PRINT Y$ : GOTO 7860
  802. 7950  IF (GP!<1000) OR (LF=1) GOTO 2970
  803. 7960  PRINT
  804. 7970  PRINT "Do you want to buy a lamp for 1000 gp's";
  805. 7980  GOSUB 10710
  806. 7990  IF O$ <> "Y" GOTO 8050
  807. 8000  GP!=GP!-1000
  808. 8010  LF=1
  809. 8020  PRINT
  810. 8030  PRINT "It's guaranteed to outlive you!"
  811. 8040  GOTO 2970
  812. 8050  IF O$ <> "N" THEN PRINT Y$ : GOTO 7960
  813. 8060  GOTO 2970
  814. 8070  Q1=1+INT(A/2) : Q2=A+2 : Q3=1
  815. 8080  IF (C(1,4)>T(1)) OR (BL=1) OR (DX<FNA(9)+FNA(9)) GOTO 9100
  816. 8090  PRINT
  817. 8100  COLOR 3,0,12:PRINT "You're confronting ";C$(A+12);"!"
  818. 8110  PRINT
  819. 8120  PRINT "You may attack or retreat (strongly suggested!)."
  820. 8130  IF Q3=1 THEN PRINT "You can also attempt to bribe the creature."
  821. 8140  IF IQ > 14 THEN PRINT "You can also cast a spell."
  822. 8150  PRINT
  823. 8160  PRINT "Your strength is";ST;"and your dexterity is";DX;"."
  824. 8170  GOSUB 10690
  825. 8180  IF O$ <> "A" GOTO 8590
  826. 8190  IF WV <> 0 GOTO 8230
  827. 8200  PRINT
  828. 8210  COLOR 11,0,15:PRINT "** Pounding on ";C$(A+12);" won't hurt it!":COLOR 3,0,12
  829. 8220  GOTO 9100
  830. 8230  IF BF <> 1 GOTO 8270
  831. 8240  PRINT
  832. 8250  COLOR 11,0,15:PRINT "** You can't kill it with a book, so I suggest you either attack or retreat!":COLOR 3,0,12
  833. 8260  GOTO 9100
  834. 8270  IF DX >= FNA(20)+(3*BL) GOTO 8310
  835. 8280  PRINT
  836. 8290  PRINT "You barley missed the ";C$(A+12);"!"
  837. 8300  GOTO 9100
  838. 8310  Z$=RIGHT$(C$(A+12),LEN(C$(A+12))-2)
  839. 8320  IF LEFT$(Z$,1)=" " THEN Z$=MID$(Z$,2)
  840. 8330  PRINT
  841. 8340  PRINT "A valent blow, you hit the ";Z$;"!"
  842. 8350  Q2=Q2-WV
  843. 8360  IF (A <> 9 AND A <> 12) GOTO 8410
  844. 8370  IF FNA(8) <> 1 GOTO 8410
  845. 8380  PRINT
  846. 8390  COLOR 11,0,15:BEEP:BEEP:PRINT "OH NO! Your ";W$(WV+1);" broke!":BEEP:BEEP:COLOR 3,0,12
  847. 8400  WV=0
  848. 8410  IF Q2 > 0 GOTO 9100
  849. 8420  PRINT
  850. 8430  MC=MC-1
  851. 8440  PRINT "You kill ";C$(A+12);"."
  852. 8445  KM!=KM!+1000
  853. 8450  IF H > T-60 GOTO 8490
  854. 8460  PRINT
  855. 8470  PRINT "You spend an hour eating ";C$(A+12);E$(FNA(8));"."
  856. 8480  H=T
  857. 8490  IF X <> R(1) OR Y <> R(2) OR Z <> R(3) THEN ON (1-(A=13)) GOTO 8540,10490
  858. 8500  PRINT
  859. 8510  COLOR 11,0,15:BEEP:PRINT "You've found the Runestaff!";CHR$(7):COLOR 3,0,12
  860. 8515  FTRS=10000
  861. 8520  R(1)=0
  862. 8530  RF=1
  863. 8540  Q=FNA(1000)
  864. 8550  PRINT
  865. 8560  PRINT "You now get his hoard of";Q;"gp's!"
  866. 8570  GP!=GP!+Q
  867. 8580  GOTO 5650
  868. 8590  IF O$="R" GOTO 9100
  869. 8600  IF O$ <> "C" GOTO 8890
  870. 8610  IF IQ >= 15 OR Q3 <= 1 GOTO 8650
  871. 8620  PRINT
  872. 8630  COLOR 11,0,15:PRINT "** You can't cast a spell now!":COLOR 3,0,12
  873. 8640  GOTO 8090
  874. 8650  PRINT
  875. 8660  PRINT "Which spell do you wish to cast, W/eb, F/ireball, or D/eathspell?";
  876. 8670  GOSUB 10710
  877. 8680  PRINT
  878. 8690  IF O$ <> "W" GOTO 8730
  879. 8700  ST=ST-1
  880. 8710  WC=FNA(8)+1
  881. 8720  ON (1-(ST<1)) GOTO 9100,9590
  882. 8730  IF O$ <> "F" GOTO 8820
  883. 8740  Q=FNA(7)+FNA(7)
  884. 8750  ST=ST-1
  885. 8760  IQ=IQ-1
  886. 8770  IF (IQ < 1) OR (ST < 1) GOTO 9590
  887. 8780  PRINT "It does";Q;"points worth of damage."
  888. 8790  PRINT
  889. 8800  Q2=Q2-Q
  890. 8810  GOTO 8410
  891. 8820  IF O$="D" GOTO 8860
  892. 8830  PRINT
  893. 8840  COLOR 11,0,15:PRINT "** Try one of the options given.":COLOR 3,0,12
  894. 8850  GOTO 8090
  895. 8860  PRINT "Death is. . . ";
  896. 8870  IF IQ < FNA(4)+15 THEN PRINT "yours!" : IQ=0 : GOTO 9590
  897. 8880  PRINT "his!" : Q2=0 : GOTO 8420
  898. 8890  IF O$="B" AND Q3 <= 1 GOTO 8930
  899. 8900  PRINT
  900. 8910  COLOR 11,0,15:PRINT "** Choose one of the options listed.":COLOR 3,0,12
  901. 8920  GOTO 8090
  902. 8930  IF TC <> 0 GOTO 8970
  903. 8940  PRINT
  904. 8950  PRINT "All I want is your life!"
  905. 8960  GOTO 9100
  906. 8970  Q=FNA(8)
  907. 8980  IF T(Q)=0 GOTO 8970
  908. 8990  PRINT
  909. 9000  PRINT "I want ";C$(Q+25);". Will you give it to me?";
  910. 9010  GOSUB 10710
  911. 9020  IF O$="N" GOTO 9100
  912. 9030  IF O$ <> "Y" THEN PRINT Y$ : GOTO 8990
  913. 9040  T(Q)=0
  914. 9050  TC=TC-1
  915. 9060  PRINT
  916. 9070  PRINT "OK, just don't tell anyone else."
  917. 9080  VF=VF+(L(FND(Z))=25)
  918. 9090  GOTO 2970
  919. 9100  Q3=2
  920. 9110  IF WC <= 0 GOTO 9140
  921. 9120  WC=WC-1
  922. 9130  IF WC=0 THEN PRINT : PRINT "The web just broke!"
  923. 9140  Z$=RIGHT$(C$(A+12),LEN(C$(A+12))-2)
  924. 9150  IF LEFT$(Z$,1)=" " THEN Z$=MID$(Z$,2)
  925. 9160  IF WC <= 0 GOTO 9200
  926. 9170  PRINT
  927. 9180  PRINT "The ";Z$;" is stuck and can't attack now!"
  928. 9190  GOTO 9380
  929. 9200  PRINT
  930. 9210  PRINT "The ";Z$;" attacks!"
  931. 9220  IF DX < FNA(7)+FNA(7)+FNA(7)+3*BL GOTO 9330
  932. 9230  PRINT
  933. 9240  HIT=INT(RND(0)*2+1)
  934. 9250  ON HIT GOTO 9260,9280,9300
  935. 9260  PRINT "The blow barely misses your left leg making sparks a huge dent in the floor!"
  936. 9270  GOTO 9380
  937. 9280  PRINT "The ";Z$;" charges at you but you dodge out of the way just in time!"
  938. 9290  GOTO 9380
  939. 9300  PRINT "The ";Z$;" just  barely misses your ear!"
  940. 9310  GOTO 9380
  941. 9320  GOTO 9380
  942. 9330  PRINT
  943. 9340  COLOR 12,0,4:BEEP:PRINT "Thud! The ";Z$;" hit you!":BEEP:COLOR 3,0,12
  944. 9350  Q=Q1
  945. 9360  GOSUB 9490
  946. 9370  IF ST < 1 GOTO 9590
  947. 9380  IF O$ <> "R" GOTO 8090
  948. 9390  PRINT
  949. 9400  PRINT "You have escaped!"
  950. 9410  PRINT
  951. 9420  PRINT "Do you want to go North, south, east, or west?";
  952. 9430  GOSUB 10710
  953. 9440  IF O$="N" OR O$="S" OR O$="E" OR O$="W" GOTO 4310
  954. 9450  PRINT
  955. 9460  COLOR 11,0,15:PRINT "** Don't press your luck, ";R$(RC);"!":COLOR 3,0,12
  956. 9470  PRINT
  957. 9480  GOTO 9420
  958. 9490  IF AV=0 GOTO 9570
  959. 9500  Q=Q-AV
  960. 9510  AH=AH-AV
  961. 9520  IF Q < 0 THEN AH=AH-Q : Q=0
  962. 9530  IF AH >= 0 GOTO 9570
  963. 9540  AH=0 : AV=0
  964. 9550  PRINT
  965. 9560  PRINT "Your armor is damaged beyond use . . . good luck!"
  966. 9570  ST=ST-Q
  967. 9580  RETURN
  968. 9590  PRINT CHR$(7)
  969. 9600  GOSUB 10630
  970. 9610  COLOR 3,0,7:PRINT "A noble effort, oh formerly living ";R$(RC);"!"
  971. 9620  PRINT
  972. 9630  PRINT "You died due to lack of ";
  973. 9640  IF ST < 1 THEN PRINT "Strength."
  974. 9650  IF IQ < 1 THEN PRINT "Intelligence."
  975. 9660  IF DX < 1 THEN PRINT "Dexterity."
  976. 9670  PRINT
  977. 9680  Q3=1
  978. 9690  PRINT "At the time you died, you had :"
  979. 9700  GOTO 9920
  980. 9710  Q3=0
  981. 9720  PRINT
  982. 9730  PRINT "You left the castle with";
  983. 9740  IF OF=0 THEN PRINT "out";
  984. 9750  PRINT " the Amulet of Chaos."
  985. 9760  PRINT
  986. 9770  IF OF=0 GOTO 9870
  987. 9780  CLS
  988. 9790  COLOR 11,0,15:PRINT"       POINT   POINT  POINTPOINTPOINT   POINT   POINT       POINT   POINT  POINT  POINT   POINT    POINT  POINT"
  989. 9800  PRINT"       <0xDF!>POINTPOINTPOINT<0xDF!> CSRLIN   CSRLIN  CSRLIN   CSRLIN       CSRLIN POINT CSRLIN  CSRLIN  CSRLIN<0xDF!>POINT CSRLIN    CSRLIN  CSRLIN
  990. 9810  PRINT"         CSRLIN   <0xDF!>POINTPOINTPOINT<0xDF!>  <0xDF!>POINTPOINTPOINT<0xDF!>        CSRLIN CSRLIN   CSRLIN  CSRLIN  <0xDF!>CSRLIN    POINT  POINT"
  991. 9820  PRINT
  992. 9830  BEEP:PRINT "An incredibly glorious victory!!!!":BEEP:BEEP:BEEP:COLOR 3,0,1
  993. 9840  PRINT
  994. 9850  PRINT "In addition, you got out with the following:"
  995. 9860  GOTO 9910
  996. 9870  PRINT
  997. 9880  PRINT "A less than awe-inspiring defeat."
  998. 9890  PRINT
  999. 9900  PRINT "When you left the castle, you had:"
  1000. 9910  IF Q3=0 THEN PRINT "Your miserable life!"
  1001. 9920  FOR Q=1 TO 8
  1002. 9930  IF T(Q)=1 THEN PRINT C$(Q+25)
  1003. 9940  NEXT Q
  1004. 9950  PRINT W$(WV+1);" and ";W$(AV+5);
  1005. 9960  IF LF=1 THEN PRINT " and a lamp";
  1006. 9970  PRINT
  1007. 9980  PRINT "You also had";FL;"flares and";GP!;"gold pieces"
  1008. 9990  IF RF=1 THEN PRINT "and the Runestaff"
  1009. 10000  PRINT "Your score was ";JOHN!
  1010. 10010  PRINT "And it took you";T;"turns!"
  1011. 10020  IF JOHN! < 20000 THEN RANK$ ="a Whimp"
  1012. 10021  IF JOHN! > 35000 THEN RANK$="a Peasent"
  1013. 10022  IF JOHN! > 50000 THEN RANK$="an Ametuer"
  1014. 10023  IF JOHN! > 75000 THEN RANK$="a Scout"
  1015. 10024  IF JOHN! > 90000 THEN RANK$="an Adventurer"
  1016. 10025  IF JOHN! > 110000 THEN RANK$="a Hero"
  1017. 10026  IF JOHN! > 125000 THEN RANK$="a Wizard"
  1018. 10027  IF JOHN! > 140000 THEN GOTO 11999
  1019. 10040  'GOTO 11290
  1020. 10050  PRINT "You are ranked as ";RANK$
  1021. 10051  PRINT
  1022. 10060  PRINT " Are you foolish enough to want to play again?";
  1023. 10070  GOSUB 10710
  1024. 10080  PRINT
  1025. 10090  IF O$ <> "Y" GOTO 10150
  1026. 10100  PRINT "Some ";R$(RC);"s never learn!"
  1027. 10110  PRINT
  1028. 10120  PRINT "Please be patient while the castle is restocked."
  1029. 10130  PRINT
  1030. 10140  GOTO 910
  1031. 10150  IF O$ <> "N" THEN PRINT Y$ : GOTO 10050
  1032. 10160  PRINT "Maybe dumb ";R$(RC);" is not so dumb after all!"
  1033. 10170  PRINT
  1034. 10180  GOTO 11040
  1035. 10190  PRINT
  1036. 10200  'PRINT "Great unmitigated NurTROFFcc!"
  1037. 10210  PRINT
  1038. 10220  COLOR 28,0,15:BEEP:BEEP:PRINT "You just found The Amulet of Chaos!":BEEP:BEEP:COLOR 3,0,1
  1039. 10230  ST=18
  1040. 10240  IQ=18
  1041. 10250  DX=18
  1042. 10260  REQ=20000
  1043. 10261  BF=0
  1044. 10262  BL=0
  1045. 10270  PRINT
  1046. 10280  PRINT "The Runestaff has just disappeared!"
  1047. 10290  RF=0
  1048. 10300  OF=1
  1049. 10310  O(1)=0
  1050. 10320  GOTO 5650
  1051. 10330  DATA An empty room,TAB(,the entrance,OR,stairs going up,U
  1052. 10340  DATA stairs going down,D,a pool,P,a chest,C,gold pieces,G
  1053. 10350  DATA flares,<0x9F!>,a warp,CSRLIN,a sinkhole,S,a Crystal Orb,<
  1054. 10360  DATA a book,B,a Green Slime,WEND,an Orc,LPRINT,an Evil Dwarf,LPRINT,a Goblin,LPRINT,a Mind Flayer,LPRINT
  1055. 10370  DATA a Troll,LPRINT,a Giant spider,LPRINT,a Minotar,LPRINT,a Drow,*,a Drider,LPRINT
  1056. 10380  DATA a Balor Demon,LPRINT,a Red Dragon,*,a Drow Merchant,-,the Ruby Red,T
  1057. 10390  DATA the Norn Stone,T,the Pale Pearl,T,the Opal Eye,T
  1058. 10400  DATA the Green Gem,T,the Blue Flame,T,the Palantir,T,the Silmaril,T
  1059. 10410  DATA X,"?",no weapon," Sandwich"
  1060. 10420  DATA Dagger," stew",Mace," soup",Sword," burger",No armor," roast"
  1061. 10430  DATA Leather," filet",Chainmail," taco",Plate mail," pie"
  1062. 10440  DATA Hobbit,Elf,Man,Dwarf
  1063. 10450  X=FNA(8) : Y=FNA(8)
  1064. 10460  IF L(FND(Z)) <> 101 GOTO 10450
  1065. 10470  L(FND(Z))=Q
  1066. 10480  RETURN
  1067. 10490  PRINT
  1068. 10500  PRINT "You get all his wares :"
  1069. 10510  PRINT "Plate mail"
  1070. 10520  AV=3 : AH=21
  1071. 10530  PRINT "A sword"
  1072. 10540  WV=3
  1073. 10550  PRINT "A strength potion"
  1074. 10560  ST=FNC(ST+FNA(6))
  1075. 10570  PRINT "An intelligence potion"
  1076. 10580  IQ=FNC(IQ+FNA(6))
  1077. 10590  PRINT "A dexterity potion"
  1078. 10600  DX=FNC(DX+FNA(6))
  1079. 10610  IF LF=0 THEN PRINT "A lamp" : LF=1
  1080. 10620  GOTO 8540
  1081. 10630  FOR Q=1 TO 64
  1082. 10640  PRINT "*";
  1083. 10650  NEXT Q
  1084. 10660  PRINT
  1085. 10670  PRINT
  1086. 10680  RETURN
  1087. 10690  PRINT
  1088. 10700  PRINT "Your choice";
  1089. 10710  INPUT O$
  1090. 10720  O$=LEFT$(O$,1)
  1091. 10730  RETURN
  1092. 10740  PRINT "How many points do you wish to add to your ";Z$;
  1093. 10750  INPUT O$
  1094. 10760  PRINT
  1095. 10770  Q=VAL(O$)
  1096. 10780  IF Q=0 AND ASC(O$) <> 48 THEN Q=-1
  1097. 10790  IF Q<0 OR Q>OT OR Q<>INT(Q) THEN PRINT "** "; : GOTO 10740
  1098. 10800  OT=OT-Q
  1099. 10810  RETURN
  1100. 10820  INPUT O$
  1101. 10830  Q=INT(VAL(O$))
  1102. 10840  RETURN
  1103. 10850  PRINT
  1104. 10860  PRINT Z$;
  1105. 10870  INPUT O$
  1106. 10880  Q=INT(VAL(O$))
  1107. 10890  IF Q > 0 AND Q < 9 THEN RETURN
  1108. 10900  PRINT
  1109. 10910  COLOR 11,0,15:PRINT "** Try a number from 1 to 8.":COLOR 3,0,1
  1110. 10920  GOTO 10850
  1111. 10930  PRINT
  1112. 10940  PRINT "Do you want to buy a potion of ";Z$;" for 1000 gp's";
  1113. 10950  GOTO 10710
  1114. 10960  PRINT
  1115. 10970  PRINT "Your ";Z$;" is now";Q;"."
  1116. 10980  RETURN
  1117. 10990  PRINT
  1118. 11000  PRINT "These are the types of ";Z$;" you can buy :"
  1119. 11010  RETURN
  1120. 11020  COLOR 2,0,1:PRINT "You are at (";X;",";Y;") level";Z;".":COLOR 3,0,1
  1121. 11030  RETURN
  1122. 11040  END
  1123. 11050  LET JOHN!=ST+IQ+DX+GP!-T
  1124. 11060  PRINT
  1125. 11070  PRINT"Your score at this time is ";JOHN!
  1126. 11080  PRINT
  1127. 11090  GOTO 3690
  1128. 11100  LPRINT "*** TEMPLE OF LOTH'S COMMAND AND INFORMATION SUMMARY ***"
  1129. 11110  LPRINT
  1130. 11120  LPRINT "The following commands available are:"
  1131. 11130  LPRINT
  1132. 11140  LPRINT "H/elp     N/orth    S/outh    E/ast     W/est     U/p"
  1133. 11150  LPRINT "D/own     DR/ink    M/ap      F/lare    L/amp     O/pen"
  1134. 11160  LPRINT "G/aze     T/eleport Q/uit     #/Score
  1135. 11170  LPRINT
  1136. 11180  LPRINT "The contents of the rooms are as follows:"
  1137. 11190  LPRINT
  1138. 11200  LPRINT "TAB( = empty room      B = book            C = chest"
  1139. 11210  LPRINT "D = stairs down     OR = entrance/exit   <0x9F!> = flares"
  1140. 11220  LPRINT "G = gold pieces     LPRINT = monster         < = crystal orb"
  1141. 11230  LPRINT "P = magic pool      S = sinkhole        T = treasure"
  1142. 11240  LPRINT "U = stairs up       * = Drow            CSRLIN = warp/amulet
  1143. 11250  LPRINT
  1144. 11260  LPRINT
  1145. 11270  LPRINT "The benefits of having treasures are:"
  1146. 11280  LPRINT
  1147. 11290  LPRINT "RUBY RED - avoid lethargy    PALE PEARL - avoid leech"
  1148. 11300  LPRINT "GREEN GEM - avoid forgetting  OPAL EYE - cure blindness"
  1149. 11310  LPRINT "BLUE FLAME - dissolves books  NORN STONE - no benefit"
  1150. 11320  LPRINT "PALANTIR - no benefit         SILMARIL - no benefit"
  1151. 11330  LPRINT
  1152. 11340  GOTO 3700
  1153. 11350  END
  1154. 11360  RF=1
  1155. 11370  GOTO 3700
  1156. 11380  PRINT
  1157. 11390  COME=1
  1158. 11400  PRINT"You hear footsteps...";
  1159. 11410  SOUND 32767,28
  1160. 11420  PRINT"The footsteps get louder!"
  1161. 11430  SOUND 32767,28
  1162. 11440  PRINT"You hear people talking in a strange language."
  1163. 11450  SOUND 32767,28
  1164. 11460  PRINT"Oh, No!! the Drow have returned!!!
  1165. 11470  DROW=INT(RND*100)
  1166. 11480  IF DROW < 10 GOTO 11530
  1167. 11490  ST=0
  1168. 11500  IQ=0
  1169. 11510  DX=0
  1170. 11520  GOTO 9600
  1171. 11530  PRINT
  1172. 11540  PRINT "You escaped just in time!"
  1173. 11550  PRINT
  1174. 11560  GOTO 9760
  1175. 11570  CHAIN"TEM-INS.BAS",10
  1176. 11999  LOCATE 25,1:INPUT "Press return to continue.";QWERTYU$
  1177. 12000  CLS:COLOR 26,0,1
  1178. 12010  PRINT "  POINTPOINT   POINTPOINT  POINT   POINT  POINTPOINT  POINTPOINTPOINT   POINTPOINT  POINTPOINTPOINT  POINT  POINT POINT    POINTPOINT  POINTPOINTPOINTPOINTPOINT POINT  POINTPOINT  POINT   POINT  POINTPOINT    POINT
  1179. 12020  PRINT " CSRLIN  <0xDF!> CSRLIN  CSRLIN CSRLINCSRLIN  CSRLIN CSRLIN  <0xDF!> CSRLIN  CSRLIN CSRLIN  CSRLIN CSRLIN  CSRLIN CSRLIN  CSRLIN CSRLIN   CSRLIN  CSRLIN   CSRLIN   CSRLIN CSRLIN  CSRLIN CSRLINCSRLIN  CSRLIN CSRLIN  <0xDF!>  CSRLIN CSRLIN
  1180. 12030  PRINT " CSRLIN    CSRLIN  CSRLIN CSRLIN CSRLIN CSRLIN CSRLIN    CSRLINPOINTPOINT<0xDF!> CSRLINPOINTPOINTCSRLIN CSRLIN  CSRLIN CSRLIN  CSRLIN CSRLIN   CSRLINPOINTPOINTCSRLIN   CSRLIN   CSRLIN CSRLIN  CSRLIN CSRLIN CSRLIN CSRLIN  <0xDF!><0xDF!>POINT  CSRLIN CSRLIN
  1181. 12040  PRINT " CSRLIN  POINT CSRLIN  CSRLIN CSRLIN  CSRLINCSRLIN CSRLIN <0xDF!>CSRLIN CSRLIN <0xDF!>POINT CSRLIN  CSRLIN CSRLIN  CSRLIN CSRLIN  CSRLIN CSRLIN   CSRLIN  CSRLIN   CSRLIN   CSRLIN CSRLIN  CSRLIN CSRLIN  CSRLINCSRLIN POINT  CSRLIN   <0xDF!>
  1182. 12050  PRINT "  <0xDF!><0xDF!>   <0xDF!><0xDF!>  <0xDF!>   <0xDF!>  <0xDF!><0xDF!>  <0xDF!>  <0xDF!> <0xDF!>  <0xDF!> <0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!> <0xDF!>  <0xDF!>   <0xDF!>   <0xDF!>  <0xDF!><0xDF!>  <0xDF!>   <0xDF!>  <0xDF!><0xDF!>    <0xDF!>
  1183. 12060  COLOR 3,0,1:PRINT
  1184. 12070  PRINT
  1185. 12080  PRINT " You have been ranked as a Lord with a score of ";JOHN!
  1186. 12090  PRINT
  1187. 12100  IF JOHN! > 142498 THEN PRINT " Don't forget to replace my score on Tem-Ins.Bas
  1188. 12200  GOTO 10051
  1189.